Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ruthie/game2.frm

Visual Basic Form | 1995-05-08 | 11.0 KB | 337 lines

VERSION 2.00
Begin Form Game2
   Caption         =   "RuthieWare"
   ClientHeight    =   9060
   ClientLeft      =   1095
   ClientTop       =   1770
   ClientWidth     =   10170
   Height          =   9750
   Icon            =   GAME2.FRX:0000
   Left            =   1035
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MinButton       =   0   'False
   ScaleHeight     =   9060
   ScaleWidth      =   10170
   Top             =   1140
   Width           =   10290
   Begin Timer Timer2
      Left            =   4440
      Top             =   8040
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   615
      Index           =   3
      Left            =   2400
      Picture         =   GAME2.FRX:0302
      ScaleHeight     =   615
      ScaleWidth      =   615
      TabIndex        =   7
      Top             =   7680
      Visible         =   0   'False
      Width           =   615
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   495
      Index           =   2
      Left            =   1680
      Picture         =   GAME2.FRX:106A
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   6
      Top             =   7680
      Visible         =   0   'False
      Width           =   495
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   495
      Index           =   1
      Left            =   960
      Picture         =   GAME2.FRX:148E
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   5
      Top             =   7680
      Visible         =   0   'False
      Width           =   495
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   495
      Index           =   0
      Left            =   120
      Picture         =   GAME2.FRX:2D5E
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   4
      Top             =   7680
      Visible         =   0   'False
      Width           =   495
   End
   Begin PictureBox Actions
      BorderStyle     =   0  'None
      Height          =   855
      Left            =   5160
      ScaleHeight     =   855
      ScaleWidth      =   1695
      TabIndex        =   9
      Top             =   7560
      Width           =   1695
      Begin PictureBox GoToGame3
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   1200
         Picture         =   GAME2.FRX:404E
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   12
         Top             =   0
         Width           =   495
      End
      Begin PictureBox Quit
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   600
         Picture         =   GAME2.FRX:4350
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   11
         Top             =   0
         Width           =   495
      End
      Begin PictureBox GoToGame1
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   0
         Picture         =   GAME2.FRX:4652
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   10
         Top             =   0
         Width           =   495
      End
   End
   Begin Timer Timer1
      Left            =   4440
      Top             =   7560
   End
   Begin PictureBox Yippee
      BorderStyle     =   0  'None
      Height          =   615
      Left            =   3120
      Picture         =   GAME2.FRX:4954
      ScaleHeight     =   615
      ScaleWidth      =   1215
      TabIndex        =   13
      Top             =   7440
      Visible         =   0   'False
      Width           =   1215
   End
   Begin PictureBox Picture2
      Height          =   7215
      Left            =   6480
      ScaleHeight     =   7185
      ScaleWidth      =   465
      TabIndex        =   2
      Top             =   120
      Width           =   495
      Begin PictureBox Picture3
         BackColor       =   &H00C00000&
         Height          =   960
         Left            =   0
         ScaleHeight     =   930
         ScaleWidth      =   465
         TabIndex        =   3
         Top             =   6240
         Width           =   495
      End
   End
   Begin PictureBox Background
      BorderStyle     =   0  'None
      Height          =   7215
      Left            =   120
      ScaleHeight     =   7215
      ScaleWidth      =   6135
      TabIndex        =   0
      Top             =   120
      Width           =   6135
      Begin PictureBox FrownFace
         BorderStyle     =   0  'None
         Height          =   2775
         Left            =   1680
         Picture         =   GAME2.FRX:A99A
         ScaleHeight     =   2775
         ScaleWidth      =   2895
         TabIndex        =   8
         Top             =   1920
         Visible         =   0   'False
         Width           =   2895
      End
      Begin PictureBox Picture1
         BorderStyle     =   0  'None
         Height          =   1095
         Left            =   120
         Picture         =   GAME2.FRX:BBE8
         ScaleHeight     =   1095
         ScaleWidth      =   1215
         TabIndex        =   1
         Top             =   120
         Width           =   1215
      End
   End
   Begin Menu File
      Caption         =   "&File"
      Begin Menu FileAbout
         Caption         =   "&About Ruthie"
      End
      Begin Menu FileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu Game
      Caption         =   "&Game"
      Begin Menu GameGame1
         Caption         =   "Game &1"
      End
      Begin Menu GameGame2
         Caption         =   "Game &2"
         Checked         =   -1  'True
      End
      Begin Menu GameGame3
         Caption         =   "Game &3"
      End
   End
   Begin Menu Instructions
      Caption         =   "&Instructions"
      Begin Menu InstructionsGame2
         Caption         =   "Playing Game &2"
      End
   End
Dim Counter As Integer
Sub Background_Click ()
    FrownFace.Top = (Background.Height - FrownFace.Height) / 2
    FrownFace.Left = (Background.Width - FrownFace.Width) / 2
    FrownFace.Visible = True  'Turns FrownFace on
    Timer1.Interval = HOWLONG  'Sets clock for 3 seconds
End Sub
Sub FileAbout_Click ()
    Open2.Show MODAL
End Sub
Sub FileExit_Click ()
    End
End Sub
Sub Form_Load ()
    Width = Screen.Width * .5
    Height = Screen.Height * .75
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) * .4
    Initialize
    Picture1.Picture = Storage(0).Picture
End Sub
Sub Form_Resize ()
    Scale                                   ' Reset scale to twips
    If Game2.Height > 100 Then Initialize   ' If the Height is smaller, than it's been
                                            ' minimized. We don't want to initialize if
                                            ' that's the case.
End Sub
Sub GameGame1_Click ()
    Game2.Hide
    Ruthie.Show
End Sub
Sub GameGame2_Click ()
    MsgBox "So, okay, we'll ask. If you are already playing Game 2, why are you clicking on this menu instruction?", 0, HEADER
End Sub
Sub GameGame3_Click ()
    Game2.Hide
    Game3.Show
End Sub
Sub GoToGame1_Click ()
    Game2.Hide
    Ruthie.Show
End Sub
Sub GoToGame3_Click ()
    Game2.Hide
    Game3.Show
End Sub
Sub Initialize ()
    Game2.Scale (0, 0)-(75, 50)                 ' Define the scale for the form

    Background.Width = 60                       ' Place Background
    Background.Height = 40
    Background.Left = 3
    Background.Top = 3
    Background.Scale (0, 0)-(50, 65)            ' Define the live area scale
    Picture1.Left = 25                          ' Place the starting picture
    Picture1.Top = 25
    Picture2.Width = 5                          ' Place and size the thermometer
    Picture2.Height = 40
    Picture2.Left = 65
    Picture2.Top = 3
    Picture2.Scale (0, 0)-(5, 96)               ' Define scale for the thermometer
    Picture3.Width = Picture2.ScaleWidth        ' Place and size the "mercury"
    Picture3.Height = Picture2.ScaleHeight / 8
    Picture3.Top = Picture2.ScaleHeight - Picture3.Height
    Picture3.Left = 0
    Actions.Left = (Picture2.Left + Picture2.Width) - Actions.Width
                                                ' Place the action icons (Stop, Game2, etc.)
    Actions.Top = 45
    FrownFace.Left = (Background.ScaleWidth - FrownFace.Width) / 2
    FrownFace.Top = (Background.ScaleHeight - FrownFace.Height) / 2
    Yippee.Left = 3
    Yippee.Top = 3
    Yippee.Width = Game2.ScaleWidth * .9
    Yippee.Height = Game2.ScaleHeight * .9
    Game2.Refresh                               ' Force a refresh of all controls
    Picture2.Refresh
    Picture3.Refresh
    Actions.Refresh
    GoToGame1.Refresh
    Quit.Refresh
    GoToGame3.Refresh
    Randomize                                   ' Reseed the random number generator
End Sub
Sub InstructionsGame2_Click ()
    InstGame2.Show MODAL
End Sub
Sub Picture1_Click ()
'   If the picture is successfully clicked, the "thermometer" in Picture2
'   (the "mercury" is actually Picture3) will increase. Initially Picture3
'   is set to a small height--it will grow for seven successful clicks.
'   On the 8th successful click the thermometer will be filled, and the
'   procedure will open a new picture, reset the thermometer, and start
'   over.

'   First off, let's increase the size of the thermometer:
    Increment = Picture2.ScaleHeight / 8
    Picture3.Height = Picture3.Height + Increment
    Picture3.Top = Picture3.Top - Increment

'   Now, let's move the picture.

    WidthFree = Background.ScaleWidth - Picture1.Width
    HeightFree = Background.ScaleHeight - Picture1.Height
    FinalX = Int(WidthFree * Rnd)
    FinalY = Int(HeightFree * Rnd)
    Picture1.Move FinalX, FinalY
    If Picture3.Height >= (Picture2.ScaleHeight * .95) Then ' If thermometer close to the top, reset the picture
        Yippee.Visible = True                               ' Turn on the success picture
        Counter = (Counter + 1) Mod 4                       ' This is a rotating counter
        Picture1.Picture = Storage(Counter).Picture
        Picture3.Top = Picture2.ScaleHeight - Increment
        Picture3.Height = Increment
        Timer2.Interval = HOWLONG
    End If
End Sub
Sub Quit_Click ()
    End
End Sub
Sub Timer1_Timer ()
    FrownFace.Visible = False   ' Turn FrownFace off
End Sub
Sub Timer2_Timer ()
    Yippee.Visible = False
End Sub